home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / glammar / ge11.c < prev    next >
C/C++ Source or Header  |  1991-01-21  |  5KB  |  266 lines
  1. /*
  2.  
  3.     This file is a part of the GLAMMAR source distribution 
  4.     and therefore subjected to the copy notice below. 
  5.     
  6.     Copyright (C) 1989,1990  Eric Voss, ericv@cs.kun.nl 
  7.  
  8.     This program is free software; you can redistribute it and/or modify
  9.     it under the terms of the GNU General Public License as published by
  10.     the Free Software Foundation version 1
  11.  
  12.     This program is distributed in the hope that it will be useful,
  13.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.     GNU General Public License for more details.
  16.  
  17.     You should have received a copy of the GNU General Public License
  18.     along with this program; if not, write to the Free Software
  19.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. */
  21. #include "ge1.h"
  22. #ifdef UEQUAL 
  23.  
  24. void uequal() {   /* equal */
  25. register AFFIX B = q ->a;
  26. register AFFIX A  = (q-1) ->a;
  27.    affix x, y;
  28.    char *csave = c;
  29.    register char *xs = c,*ys;
  30.    q -=2;
  31.    SAVE (x,A);
  32.    SAVE (y,B);
  33.    if ( A==B ) {
  34.       CONTINUE;
  35.    }
  36.    else { 
  37.       if ( ( x.r == nil) && (x.l == nil ) )
  38.            xs  = x.t;
  39.       else {
  40.          sprinta(A);
  41.          A -> t = xs; A -> l = nil; A -> r = nil;
  42.          *c++ = '\0';
  43.        }
  44.       ys = c;
  45.       if ( ( y.r == nil) && (y.l == nil ) )
  46.          ys  = y.t;
  47.       else { 
  48.          sprinta(B);
  49.          B -> t = ys;
  50.          B -> l = nil;
  51.          B -> r = nil;
  52.          *c++ = '\0';
  53.        }
  54.        if (afxcmp(xs,ys)==0) {
  55.          CONTINUE;
  56.        }
  57.    }
  58.    c = csave;
  59.    RESTORE(A,x);
  60.    RESTORE(B,y);
  61.    (q+1) -> a = A;
  62.    (q+2) -> a = B;
  63.    (q+3) -> q = uequal;
  64.    q +=3;
  65. }
  66. #endif
  67.  
  68. #ifdef UNOTEQUAL 
  69. void unotequal() {   /* notequal */
  70.  
  71. register AFFIX B = (q) ->a;
  72. register AFFIX A = (q-1) ->a;
  73.    affix x,y;
  74.    char *csave = c;
  75.    register char *xs = c,*ys;
  76.    q -=2;
  77.    SAVE (x,A);
  78.    SAVE (y,B);
  79.    if (A == B) 
  80.       goto done;
  81.    if ( ( x.r == nil) && (x.l == nil ) )
  82.       xs  = x.t;
  83.    else  {
  84.       sprinta(A);
  85.       A -> t = xs;
  86.       A -> l = nil;
  87.       A -> r = nil;
  88.       *c++ = '\0';
  89.    }
  90.    ys = c;
  91.    if ( ( y.r == nil) && (y.l == nil ) )
  92.      ys  = y.t;
  93.    else {
  94.       sprinta(B);
  95.       B -> t = ys;
  96.       B -> l = nil;
  97.       B -> r = nil;
  98.       *c++ = '\0';
  99.    }
  100.    if (afxcmp(xs,ys)==0) 
  101.          goto done;
  102. go:
  103.    CONTINUE;
  104. done:
  105.    RESTORE(A,x);
  106.    RESTORE(B,y);
  107.    (q+1) -> a = A;
  108.    (q+2) -> a = B;
  109.    (q+3) -> q = unotequal;
  110.    q +=3;
  111.    c = csave;
  112. }
  113. #endif
  114.  
  115. #ifdef UFQUAL 
  116. void ufqual () 
  117. { 
  118.    register cont *rq = q;
  119. register AFFIX A_1 = rq->a;
  120. register AFFIX A_0 = (rq -1)->a;
  121.    char *rc = c; 
  122.    if ( ddfqual (A_0, A_1)) {
  123.       q = rq -3;
  124.       (*(rq -2)->q)(); 
  125.       rq = q +2;
  126.    }
  127.    (rq -1)->a = A_0;
  128.    rq->a = A_1;
  129.    (rq + 1)->q = ufqual; 
  130.    q = rq + 1; 
  131.    c = rc;
  132.   if (rc > cstore_top ) cstore_overflow();
  133. }
  134. #endif
  135.  
  136. #ifdef UFOTEQUAL 
  137. void ufotequal () 
  138. { 
  139.    register cont *rq = q;
  140. register AFFIX A_1 = rq->a;
  141. register AFFIX A_0 = (rq -1)->a;
  142.    char *rc = c; 
  143.    if ( ! ddfqual (A_0, A_1)) {
  144.       q = rq -3;
  145.       (*(rq -2)->q)(); 
  146.       rq = q +2;
  147.    }
  148.    (rq -1)->a = A_0;
  149.    rq->a = A_1;
  150.    (rq + 1)->q = ufotequal; 
  151.    q = rq + 1; 
  152.    c = rc;
  153.   if (rc > cstore_top ) cstore_overflow();
  154. }
  155. #endif
  156.  
  157. #ifdef UCOMPARE 
  158. void ucompare () 
  159. { 
  160.    register cont *rq = q;
  161. register AFFIX A_3 = rq->a;
  162. register AFFIX A_2 = (rq -1)->a;
  163. register AFFIX A_1 = (rq -2)->a;
  164. register AFFIX A_0 = (rq -3)->a;
  165.    char *rc = c; 
  166.    if ( dcompare (A_0, A_1, A_2, A_3)) {
  167.       q = rq -5;
  168.       (*(rq -4)->q)(); 
  169.       rq = q +4;
  170.    }
  171.    (rq -3)->a = A_0;
  172.    (rq -2)->a = A_1;
  173.    (rq -1)->a = A_2;
  174.    rq->a = A_3;
  175.    (rq + 1)->q = ucompare; 
  176.    q = rq + 1; 
  177.    c = rc;
  178.   if (rc > cstore_top ) cstore_overflow();
  179. }
  180. #endif
  181.  
  182. #ifdef UCONTENTSOF 
  183. void ucontentsof () 
  184. { 
  185.    register cont *rq = q;
  186. register AFFIX A_3 = rq->a;
  187. register AFFIX A_2 = (rq -1)->a;
  188. register AFFIX A_1 = (rq -2)->a;
  189. register AFFIX A_0 = (rq -3)->a;
  190.    char *rc = c; 
  191.    if ( dcontentsof (A_0, A_1, A_2, A_3)) {
  192.       q = rq -5;
  193.       (*(rq -4)->q)(); 
  194.       rq = q +4;
  195.    }
  196.    (rq -3)->a = A_0;
  197.    (rq -2)->a = A_1;
  198.    (rq -1)->a = A_2;
  199.    rq->a = A_3;
  200.    (rq + 1)->q = ucontentsof; 
  201.    q = rq + 1; 
  202.    c = rc;
  203.   if (rc > cstore_top ) cstore_overflow();
  204. }
  205. #endif
  206.  
  207. #ifdef UCHARNUM 
  208. void ucharnum () 
  209. { 
  210.    register cont *rq = q;
  211. register AFFIX A_0 = rq->a;
  212.    char *rc = c; 
  213.    if ( dcharnum (A_0)) {
  214.       q = rq -2;
  215.       (*(rq -1)->q)(); 
  216.       rq = q +1;
  217.    }
  218.    rq->a = A_0;
  219.    (rq + 1)->q = ucharnum; 
  220.    q = rq + 1; 
  221.    c = rc;
  222.   if (rc > cstore_top ) cstore_overflow();
  223. }
  224. #endif
  225.  
  226. #ifdef USETTABSTOP 
  227. void usettabstop () 
  228. { 
  229.    register cont *rq = q;
  230. register AFFIX A_0 = rq->a;
  231.    char *rc = c; 
  232.    int tabstop_save = tabstop;
  233.    if ( dsettabstop (A_0)) {
  234.       q = rq -2;
  235.       (*(rq -1)->q)(); 
  236.       rq = q +1;
  237.    }
  238.    rq->a = A_0;
  239.    (rq + 1)->q = usettabstop; 
  240.    q = rq + 1; 
  241.    c = rc;
  242.    tabstop= tabstop_save ;
  243.   if (rc > cstore_top ) cstore_overflow();
  244. }
  245. #endif
  246.  
  247. #ifdef USOMENAME 
  248. void usomename () 
  249. { 
  250.    register cont *rq = q;
  251. register AFFIX A_0 = rq->a;
  252.    char *rc = c; 
  253.    if ( dsomename (A_0)) {
  254.       q = rq -2;
  255.       (*(rq -1)->q)(); 
  256.       rq = q +1;
  257.    }
  258.    rq->a = A_0;
  259.    (rq + 1)->q = usomename; 
  260.    q = rq + 1; 
  261.    c = rc;
  262.   if (rc > cstore_top ) cstore_overflow();
  263. }
  264. #endif
  265.  
  266.